home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 February / EnterCD 02_2004.iso / Gry / Arcade! Classic Arcade Pack 2.0 / Arcade.EXE / $PROGRAMFILES / Arcade! Classic Arcade Pack / pong.swf / scripts / frame_3 / DoAction.as
Encoding:
Text File  |  2003-12-05  |  1.3 KB  |  54 lines

  1. call("action");
  2. if(p1score == "9")
  3. {
  4.    gotoAndPlay(7);
  5. }
  6. else if(p2score == "9")
  7. {
  8.    gotoAndPlay(68);
  9. }
  10. if(getProperty("/ball", _X) < "240" or speedx < "0")
  11. {
  12.    if(getProperty("/paddle2", _Y) < "148")
  13.    {
  14.       setProperty("/paddle2", _Y, getProperty("/paddle2", _Y) + "1");
  15.    }
  16.    else if("148" < getProperty("/paddle2", _Y))
  17.    {
  18.       setProperty("/paddle2", _Y, getProperty("/paddle2", _Y) - "1");
  19.    }
  20.    else
  21.    {
  22.       setProperty("/paddle2", _Y, "148");
  23.    }
  24. }
  25. else if("1" < random("100"))
  26. {
  27.    if(getProperty("/ball", _Y) < getProperty("/paddle2", _Y))
  28.    {
  29.       setProperty("/paddle2", _Y, getProperty("/paddle2", _Y) - random("8") - "1");
  30.    }
  31.    else
  32.    {
  33.       setProperty("/paddle2", _Y, getProperty("/paddle2", _Y) + random("8") + "1");
  34.    }
  35. }
  36. movespeed = getProperty("/paddle3", _Y) - "148";
  37. setProperty("/paddle1", _Y, getProperty("/paddle1", _Y) + movespeed / "20");
  38. if("253" < getProperty("/paddle2", _Y))
  39. {
  40.    setProperty("/paddle2", _Y, "253");
  41. }
  42. else if(getProperty("/paddle2", _Y) < "44")
  43. {
  44.    setProperty("/paddle2", _Y, "44");
  45. }
  46. if("253" < getProperty("/paddle1", _Y))
  47. {
  48.    setProperty("/paddle1", _Y, "253");
  49. }
  50. else if(getProperty("/paddle1", _Y) < "44")
  51. {
  52.    setProperty("/paddle1", _Y, "44");
  53. }
  54.